home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / atbasic.lzh / atbasic / src / SBR 5.3 .S 5,P (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-03-04  |  2.3 KB  |  79 lines
  1. 10 crflag =$d0:spalte =$d3:zeile =$d6
  2. 15 czei =$d1:div =$d7:hkfl =$d4
  3. 20 anzkey =$c6:int =intadr
  4. 245 resout .asc "[147]":
  5. 246 .byt 13:.asc " ** @basic v5.3":.if v&1:.asc "m":.goto 248
  6. 247 .asc "r"
  7. 248 .asc "/150289 (c) a.fachat **"
  8. 249 .byt 13,13:.asc " 64k ram system  ":.byt 0
  9. 250 v0306 =42778:v0302 =$a483:reset =$fce2
  10. 275 l1 .wor v0300,nn0302,v0304
  11. 276 .wor v0306,v0308,v030a
  12. 1000 ;**** alte befehle mit neuen funktionen
  13. 1010 oldtab .byt $8a,$9b,$8b:oldanz =3
  14. 1015 ;.byt $80;run,list,if
  15. 1100 ;**** adresstabelle
  16. 1110 newadr .wor run-1,list-1
  17. 1111 .wor if-1
  18. 2099 ;**** ascii tabelle der neuen befehle
  19. 2100 asctab .asc "trac[197]delet[197]aut[207]ol[196]dum[208]fin[196]renumbe[210]"
  20. 2101 .asc "dloa[196]dsav[197]dverif[217]director[217]catalo[199]scratc[200]collec[212]"
  21. 2102 .asc "renam[197]cop[217]backu[208]dis[203]heade[210]"
  22. 2103 .asc "appen[196]merg[197]mloa[196]mverif[217]msav[197]"
  23. 2104 .asc "ke[217]basi[195]rese[212]exi[212]ente[210]dok[197]se[212]hel[208]"
  24. 2105 .asc "scree[206]lome[205]hime[205]colou[210]typ[197]"
  25. 2120 .asc "tim[197]dee[203]hex":.byt "$"+$80
  26. 2125 .asc "bin":.byt "$"+$80
  27. 2180 .asc "of[198]alar[205]":.byt 0
  28. 2199 ;**** adress tabelle der neuen befehle
  29. 2200 adrtab .wor trace-1,delete-1
  30. 2201 .wor auto-1,old-1
  31. 2202 .wor dump-1,find-1
  32. 2203 .wor renum-1,dload-1
  33. 2204 .wor dsave-1,dverify-1
  34. 2205 .wor catalog-1,catalog-1
  35. 2206 .wor scratch-1,collect-1
  36. 2207 .wor rename-1,copy-1
  37. 2208 .wor backup-1,disk-1
  38. 2209 .wor header-1,append-1
  39. 2210 .wor merge-1,bload-1
  40. 2211 .wor bverify-1,msave-1
  41. 2212 .wor key-1
  42. 2213 .wor basic-1
  43. 2214 .wor reset-1,exit-1
  44. 2215 .wor enter-1
  45. 2220 .wor doke-1,set-1,help-1
  46. 2221 .wor screen-1
  47. 2222 .wor lomem-1,himem-1
  48. 2223 .wor colour-1,type-1
  49. 2300 ;**** funtionsadressen
  50. 2305 funktab .wor time,deek,hex
  51. 2307 .wor bin
  52. 2400 firscode =$cc:lastcode =$f1:codoff =lastcode+4
  53. 2401 codauto =firscode+2
  54. 2405 codalarm =codoff+1:codtime =lastcode
  55. 2406 codelse =codalarm+1
  56. 2408 findcode =firscode+5:codon =$91
  57. 2410 codmal =$ac
  58. 2500 ;**** tabelle zum suchen von befehlscodes im basic-text
  59. 2502 suchtab .byt $89,$8d,$a7,$cb,0;tabelle fuer renumber
  60. 2600 help beq he01:jmp syntax
  61. 2605 he01 ldx #0:he3 ldy #0:he1 lda asctab,x:beq he4:pha:and #127:jsr bsout
  62. 2610 iny:inx:pla:bpl he1:lda #" ":he2 jsr bsout:iny:cpy #10:bne he2
  63. 2620 beq he3:he4 lda #13:jmp bsout
  64. 2699 keyrtext =*
  65. 2700 .asc "[147]list_":.byt 0,0,0,0
  66. 2701 .asc "screen:_":.byt 0
  67. 2702 .asc "run_":.byt 0,0,0,0,0,0
  68. 2703 .asc "[147]key_":.byt 0,0,0,0,0
  69. 2704 .asc "dload_":.byt 0,0,0,0
  70. 2705 .asc "dsave '":.byt 3,0,0
  71. 2706 .asc "[147]di[210]_":.byt 0,0,0,0,0
  72. 2707 .asc "basic:_":.byt 0,0,0
  73. 2800 scstr .byt 13:.asc "are you sure ? ":.byt 0
  74. 2810 runstr .asc "run:":.byt 13
  75. 2820 merstr .byt 13:.asc "merging":.byt 0
  76. 2830 prgstr .asc "r,p,"
  77. 2840 enstr .byt 13:.asc "entering":.byt 0
  78. 2850 runstop .asc "run":.byt 34,42,13
  79.